Private ̸() As String

Private Sub UserForm_Initialize()

    Dim  As Range
    Dim  As Range
    Dim i As Integer

    Set  = Range("B3", Cells(Rows.Count, "B").End(xlUp))

    ReDim ̸(.Count - 1)

    For Each  In 

        ̸(i) = .Value
        i = i + 1

    Next

    ListBox1.List = ̸
    Label2.Caption = " : " & ListBox1.ListCount
    
End Sub